home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / dbind2.zip / CHKLOOPS.PRG next >
Text File  |  1993-10-16  |  2KB  |  44 lines
  1. * -> PROGRAM NAME CHKLOOPS.PRG
  2. * -> PURPOSE      EXTRACTS 'LOOP' COMMANDS FROM A FILE
  3. * -> AUTHOR       R. S. (Bob) VAN GORDER, COMPUSERVE 73230, 2136
  4. * -> SEE DBINDENT.DOC FOR INSTRUCTIONS
  5. USE DBINDENT
  6. go top
  7. count to OL
  8. DELE ALL
  9. SET DELE OFF
  10. SET TALK OFF
  11. SET ECHO OFF
  12. RECA FOR LTRI(ENT) = 'IF ' .OR. LTRI(ENT) = 'ELSE ' .OR.;
  13.  LTRI(ENT) = 'ENDIF ' .OR. LTRI(ENT) = 'ENDI ' .OR.;
  14.  LTRI(ENT)= 'DO WHILE' .OR. LTRI(ENT) = 'DO WHIL '
  15. RECA FOR LTRI(ENT) = 'ENDDO ' .OR. LTRI(ENT) = 'ENDD ' .OR.;
  16.  LTRI(ENT) = 'DO ' .OR. LTRI(ENT) = 'CASE ' .OR.;
  17.  LTRI(ENT) = 'ENDCASE ' .OR. LTRI(ENT) = 'OTHERWISE '
  18. RECA FOR LTRI(ENT) = 'ENDC ' .OR. LTRI(ENT) = 'OTHE ' .OR.;
  19.  LTRI(ENT) = 'PROCEDURE ' .OR. LTRI(ENT) = 'PROC ' .OR.;
  20.  LTRI(ENT) = 'PARA ' .OR. LTRI(ENT) = 'PARAMETERS '
  21. RECA FOR LTRI(ENT) = 'RETU ' .OR. LTRI(ENT) = 'RETURN '
  22. GO TOP
  23. INSE BEFO BLANK
  24. REPL ENT WITH '* RECAP :'
  25. SET DELE ON
  26. COUNT FOR LTRI(ENT) = 'IF ' TO G
  27. GO TOP
  28. REPL ENT WITH RTRI(ENT) + ' IF = ' + LTRI(RTRI(STR(G)))
  29. COUNT FOR LTRI(ENT) = 'ENDIF ' .OR. LTRI(ENT) = 'ENDI ' TO G
  30. GO TOP
  31. REPL ENT WITH RTRI(ENT) + ' / EI = ' + LTRI(RTRI(STR(G)))
  32. COUNT FOR LTRI(ENT) = 'DO WHILE ' TO G
  33. GO TOP
  34. REPL ENT WITH RTRI(ENT) + ' / DW = ' + LTRI(RTRI(STR(G)))
  35. COUNT FOR LTRI(ENT) = 'ENDDO ' .OR. LTRI(ENT) = 'ENDD ' TO G
  36. GO TOP
  37. REPL ENT WITH RTRI(ENT) + ' / ED = ' + LTRI(RTRI(STR(G)))
  38. REPL ENT WITH RTRI(ENT) + ' / ORIG # LINS = ' + LTRI(RTRI(STR(OL)))
  39. EDIT 1
  40. SET TALK ON
  41. SET ECHO ON
  42. SET STAT OFF
  43. SET STAT ON
  44.